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DESCRIPTION 0F BLACKJACK PR0GRAM F0R PDP-g* PDP-SS'V AND 

PDP-5* 

DENNIS J. FRAILEY 



INSTRUCTI0NS F0R USE 

L0AD PR0GRAM INT0 C0RE WITH THE BIN L0ADER. SET 
STARTING ADDRESS 0F 2i§ INT0 SWITCH REGISTER, PRESS 
L0AD ADDRESS, AND THEN PRESS START. PR0GRAM WILL ASK 
H0W MANY TIMES IT SH0ULD SHUFFLE THE DECK BEF0RE THE 
GAME STARTS. TYPE IN ANY UNSIGNED INTEGER NUMBER AND 
THEN RETURN. NEXT, THE PR06RAM WILL ASK F0R A WAGER. 
TYPE IN ANY UNSIGNED INTEGER NUMBER F0LL0WED BY A 
RETURN. PLAYER AND DEALER WILL EACH BE DEALT TW0 
CARDS, BUT 6NLY 0NE 0F THE DEALER'S CARDS WILL BE SH0WN 
AT THIS TIME. 

AT THIS P0INT THE PR0GRAM WILL CHECK T0 SEE IF 
ANY0NE HAS A T0TAL 0F 21 (BLACKJACK). IF THE DEALER 
HAS BLACKJACK, HE WINS (N0 MATTER WHAT THE PLAYER HAS). 
IF THE PLAYER HAS BLACKJACK AND THE DEALER DOESN'T, 
THEN THE PLAYER WINS. IF NEITHER HAS BLACKJACK, THE 
DEALER WILL ASK THE PLAYER IF HE WANTS ANOTHER CARD BY 
TYPING: 

HIT? 

IF THE PLAYER DOESN'T WANT ANOTHER CARD, HE SHOULD TYPE 
-N", "•", 0R "0". ANY 0THER RESPONSE IS ASSUMED TO 
MEAN "YES". ONLY ONE CHARACTER IS EXPECTED AS A 
RESPONSE, AND THE COMPUTER WILL ISSUE A CARRIAGE RETURN 
AS S00N AS ONE CHARACTER HAS BEEN TYPED. IF THE ANSWER 
IS "YES", A CARD IS DEALT AND THE PLAYER IS AGAIN ASKED 
IF HE WANTS ANOTHER CARD. THIS CONTINUES UNTIL THE 
PLAYER'S TOTAL IS OVER 21 OR THE PLAYER RESPONDS "N0". 

AT THIS POirJT THE DEALER'S C0VERED CARD WILL BE 
REVEALED, AND THE DEALER MAY DEAL HIMSELF MORE CARDS. 
THEN THE WINNER (HIGHEST TOTAL NOT EXCEEDING 21) IS 
DETERMINED AND THE WAGERED MONEY IS EITHER ADDED T0 0R 
SUBTRACTED FROM THE PLAYER'S TOTAL WINNINGS. A TIE AT 
THIS POINT IS TREATED AS A VOID GAME AND NEW CARDS ARE 
DEALT. 



/ 



ACES CAN C0UNT AS 1 0R 11. WHEN THE DECK IS 
EXHAUSTED THE CARDS ARE RESHUFFLED (EXCEPT F0R TH0SE 
WHICH ARE CURRENTLY IN PLAY) AND THE GAME C0NTINUES. 
THE GAME IS ENDED WHEN THE PLAYER MAKES A WAGER 0F 0. 
THE C0MPUTER WILL INDICATE WH0 W0N AND THEN HALT. THE 
GAME MAY BE RESTARTED BY PRESSING C0NTINUE. 

rj0TE! IF THE PLAYER'S WINNINGS (0R L0SINGS) EXCEED 
2QiC, S0ME TROUBLE MAY DEVEL0P SINCE THE LARGEST 
P0SSIBLE INTEGER NUMBER WHICH CAN BE ST0RED IN THE 
C0MPUTER IS JUST A LITTLE 0VER 2tt0. 



INF0RMATI0N 0N STRUCTURE 0F PR0GRAW 

THE PR0GRAM IS STRAIGHTF0RWARD , WITH SUBROUTINES 
USED F0R M0ST 0F THE PR0CESSING. SHUFFLING IS HANDLED 
BY USE 0F A RAND0M NUMBER GENERAT0R SUBROUTINE. THE 
"NUMBER 0F TIMES T0 SHUFFLE THE DECK" ASKED F0R AT THE 
BEGINNING 0F THE PROGRAM PROVIDES AN INITIAL RANDOM 
NUMBER T0 USE IN SHUFFLING THE DECK. 

CARDS ARE DEALT FR0M THE "SHUFFLED DECK" ARRAY R. 
AS THEY ARE PLAYED, THEY ARE STORED IN A "TEMPORARY 
DECK" V. AT THE END OF THE HAND THEY ARE RETURNED TO 
THE "USED CARD DECK" A. WHEN THE SHUFFLED DECK IS 
EXHAUSTED, THE USED CARD DECK A IS RESHUFFLED AND 
BECOMES THE NEW DECK R. 

THE INITIAL WAGER DETERMINES A "HOUSE LIMIT" (3i 
TIMES INITIAL WAGER) WHICH INSURES THAT THE PLAYER 
CANNOT DOUBLE HIS BET FOREVER. 



Ale Tc . ~f^e.^o/t<r^ ^f^E 



^ 



P lac k J A<sk P/'C:; 



i f '^ rr^ 



BIG BROTHER IS WATCHING YOU 

WAGER ANY A:^iOUNT WA3E:ri Et^DS GAi^X 

HOW MANY TinES JHOULD I SHUFFLE THE DECK748 

YOU 3TAMD $3 AHEAD. WHAT IS YOUR WAGER? 10 

YOUR CARD IS 9 SPADES 

I SHOW 3 HEARTS 

YOUR CARD IS 7 DIA^IONDS 

HIT?N 

DEALER'S COVERED CARD 13 8 SPADES 

4 CLUES 

5 CLUES 
I WIN 

YOU STAND $13 IN THE HOLE. WHAT IS YOUR WAGER720 

YOUR CARD IS 2 CLUBS 

I SHOW A HEARTS 

YOUR CARD IS S HEARTS 

DEALER HAS BLACKJACK. 

DEALER'S COVERED CARD IS J SPADES 

I WIN 

YOU STAND $50 IN THE HOLE. WHAT IS YOUR WAGER740 

YOUR CARD IS 2 HEARTS 

I SHOW 7 CLUBS 

YOUR CARD IS 5 SPADES 

HIT7Y 

4 SPADES 
HIT?Y 

3 SHADES 
HIT7Y 

Q CLUBS 
YOU HAVE BUSTED 

DEALER'S COVERED CARD IS A SPADES 
I WIN 

YOU STAND $70 IN THE HOLE. WHAT IS YOUR WAGER7S0 
YOUR CARD IS 7 SPADES 
I SHOW K HEARTS 

YOUR CARD 12 Q HEARTS 
HIT7N 

DEALER'S COVERED CARD 15 J HEARTS 
I ;^IN 

YOl STAND $15r I.^ TH': HOLE. WHAT IS YOUR WA:3^R?i:Z 
YOUR CARD IS 4 :iA;:3;v:3 
I Sliy^ n HEARTS 

YOUR CARD IS Z CLuRo 
HIT7Y 

A CLU33 
HIT7N 
DEALER'S COVERE: CARD IR 7 HEARTS 

YOU na 

YOU 3TA;C "10 AHEAD. .;-AT IS YOl. t ".:A1ER71j 

YOUR CARS IS 9 2l^:\0KZ2 

I SHOW K :iARSuD.j 

YOUR car: is 8 CLUR3 

riIT7t^ 



£ 



-iALl-a'o ZCi'-J i-.iL^^ CA.:^ IS S HEA.iT-.' 
1 ■' 1 1^ 

YOJ ^TAND :3 AHEAD. ViiAT 13 YOIJ^ vA3ER?2o 
YO'J.i CA;^D 13 IZ JPADEJ 

I jn:w ^ dia?iq;v:3 

YCu:^ CAHj 13 4 HEARTS 

HIT?Y 

9 HEARTS 
Yji. lAVE BUSTED 

SEALER'S COVERED CARD IS K CLUES 
I n^ 

YOU STAND $20 IN THE HOLE. WHAT IS YCUR WAGER?: 
Yjl owe /.Z $2S 







/ DATA 
/ 


FOR BLA 






*50 


3050 


0301 


CA, 


501 


3031 


0302 


CE, 


532 


0032 


0305 


CC, 


535 


.lv33 


3534 


CD, 


504 


::^34 


3505 


CE, 


335 


j;:!35 


0506 


CF, 


306 


ZjiS 


0537 


CG, 


307 


J037 


3513 


CH, 


310 


3040 


0511 


CI, 


311 


3041 


0512 


CJ, 


312 


0342 


0515 


CK, 


315 


0043 


0314 


CL, 


514 


3044 


0515 


Ct^ 


515 


3045 


3516 


CN, 


516 


334S 


0517 


CO, 


517 


02147 


0520 


CP, 


520 


3350 


0521 


CQ, 


521 


0351 


0522 


CR, 


522 


3352 


3325 


C3, 


525 


3353 


3324 


CT, 


524 


.^354 


0325 


Cu, 


525 


3355 


0326 


c^, 


526 


3356 


3527 


cw. 


327 


0057 


0550 


ex, 


353 


3260 


3531 


CY, 


551 


3361 


0352 


cz. 


552 


0062 


0260 


C0, 


263 


3363 


0261 


CI, 


261 


:364 


0262 


C2, 


262 


0365 


0265 




265 


3366 


0264 


04, 


264 


3367 


0265 


C5, 


265 


3373 


0266 


C6, 


266 


3071 


0267 


C7, 


267 


0372 


3273 


C8, 


2 73 


0075 


0271 


C9, 


271 


3374 


3215 


CCR, 


215 


3075 


0212 


CLF, 


212 


3076 


0240 


C3P, 


243 


3377 


02^4 


CDOL, 


244 


3100 


3247 


CAPOS, 


247 


3101 


0256 


CPER, 


256 


3132 


0277 


CQt>l, 


277 


3103 


7563 


MCR, 
/ 


-215 


"134 


1223 


/ 

Ar^UP, 


;,UP 


-1^3 


2433 


:ty:^2, 


CTY-21 


:'136 


' ' '■;■. ■^ 


jcov, :c 


O'M 


-i37 


ZSl'i 


::iAL, 


23EAL1 


:^i 13 


14:3 


^HAL, 


DEALl 


"1 11 


1431 


ly L -t L L , 


DEAL2 


Jl 12 


5532 


:V!^^IivT, 


NPR 11 


:i n 


3452 


[vREhD, 


i»R EA ^1 


31 1^, 


^S Ji: 


;.ti:-l3. 


;^Tr-;2i 


M 1 5 


133;: 


:^;j2L, 


ivUDEr^L 


•■i IC 


2 6 10 t ' 


?22AL, 


PDEALl 


M17 


223: 


P.^CC, 


PHC^::i 


jI 2^ 


5433 


-:u.vT, 


p:^i:,ti 



2:12 1 


5417 


PiiT, 


PyUl 


J 122 


5557 


HAND, 


ra;oi 


,]123 


3440 


READC, 


READCl 


j124 


3424 


READ, 


READl 


0125 


3626 


SHUFFL, 


SHUFLl 


J126 


3233 


START, 

/ 

/ 


STARTl 


0127 


7777 


Ml, 


-1 


0150 


7775 


1^, 


-3 


0131 


7774 


1^14, 

/ 

/ 


-4 


3152 


3331 


PI, 


1 


z;i33 


3332 


P2, 
/ 

/ 


o 


j134 


3333 


JUNK, 


3 


C155 


3003 


JUNKl, 





3156 


3333 


JUNK2, 


3 


3157 


U VJ XJ o 


JUNK5, 


3 


3140 


3333 


JUN'K5, 





,M41 


•-J .-? '7( n 


A3, 





3142 


3033 


Al, 


3 


314 3 


3333 


A2, 


3 


3144 


rf, CK ■■? n-, 


A5, 


.3 


3145 


0333 


A9, 


3 


3146 


-7. '"^ 'K 01 

■l; J tj tj 


DC^IRK, 


3 


3147 


0333 


K9, 


3 


3152 


3033 


X, 


3 


3151 


3333 


S3, 


3 


3152 


3030 


S4, 


.a 


3153 


3033 


w, 


3 


3154 


3030 


W3, 


3 


3155 


3333 


Wl, 





0156 


00z3 


T, 





3157 




\/3, 




3163 


3333 






3161 


t J O' U O 


", 


3 


31 sr 


'I -» Tl , -f 


K-, 


■1 
jj 


3163 


' 1 "■ 1 
l> -J ,j .) 


P, 


VJ 


3154 


■7 1 -T ?. 


1 Ikj , 


*J 


3165 


3330 


E, 




3156 


3 n "" C' 


H, 


3 


0167 


0033 


H0, 


3 


3173 


m2i?, 


J, 





3171 


^zm 






3172 


■ ? -T -7 0! 
^ LJ .J Li 




'7 


0173 


7^^\^-^ 




iT' 


3174 


3333 




r" 


3175 


3333 


/ 

/ 


3 
*2 


3302 


3000 


CLOC, 






3130 


ALOC, 


A 


3334 


3230 


RLOC, 


R 


3335 


3273 


BLOC, 


B 


0006 


3530 


VLOC, 

/ 

/ 


'J 
*5330 




■-? ■< T .-TS 





*3133 


ji3: 


\J ;l. .-..- \j 


^, 


3 
*3233 



/ NUMBER OF CARDS li\ DECK (A) 



/ =1 IF PRINTH^G DEALER'S COVERED CAR; 

/ RAi^DOM NUMBER 

/ DEALER'S CARD TOTAL 

/ PLAYER'S CARD TOTAL 

/ CURRENT CARD (FROH DECK R) 

/ CURRENT WAGER 

/ PLAYER'S ■*'! INNINGS 

/ 3 INITIALLY, 1 LATErt 

/ I INDEXES V 

/ =1 AFTE; FIRST SHUFFLE 



/ # OF CARDS IN DECK n 

/ 1 FOR DEALER, 2 FOR PLAYER 



/ HOUSE LI'UT (INITIAL ,.hGER + 30) 



/ CARD DESCRIPTIu.,S 
/ U3ZD CARDS 



32^2 


••■» -7 ■> rf 


^. 




i327;: 


/ 


^:.\ "r L '-Z 


- 


32 7 D 


2230 


B, 




2 
















*3322 






3322 


2033 


/ 
/ 
/ 




2 


/ 


r> A, .; ■^. ^ o ; f 








/ 


BASIC 


oUBRCUTIivES Fo 


R 5LAC;jA 


~i i\ 






/ 




*342; 


Tt 






34oC 


^'20'/ 


?' 


;IM1, 


T 








34^1 


720^ 






'^ 1 ,^ 








34 2:2 


123" 






TA? 


- -luTl 






3403 


1127 






TAD 


■•ii 






3404 


3210 






DCA 


10 






3405 


1412 


PRLOOP, 


TAD 


I 12 






3406 


745 ?S 






3i^iA 








3407 


541? 






JflP 


I 13 






3410 


3134 






DCA 


JUNK 






3411 


6041 






TSF 








5412 


5211 






j:^p 


.-1 






3413 


1534 






TAD 


I jUi^;< 






341 'i 


S346 






TL3 








3415 


7232 






2LA 








34 IS 


5205 


/ 
/ 




J.1P 


PRLCOP 






3417 


2000 


P?{T1, 


n 








3420 


6041 






TSF 








3421 


5220 






JMP 


.-1 






3422 


6046 






TL3 








3423 


5617 


/ 
/ 




J[1P 


I PPTl 






3424 


2222 


-i: 


:a21, 










3425 


6J51 






K2F 








342 G 


5225 






J^IP 


.-I 






3427 


6036 






KRE 








3430 


313S 






1^ Urt 


J Li iikc. 






3431 


1136 






TAD 


JUiiKii 






3432 


6041 






TSF 








3453 


5232 






J^P 


.-1 






3434 


6246 






TL3 








3435 


7200 






CLA 








5436 


1136 






TAD 


JUUK2 






3437 


5624 


/ 

/ 




j;^P 


I READ! 






3440 




^ t 


:A2ai , 


-> 








3441 


4224 






j/'iS 


RCADl 






3^'')2 


3135 






i^ L/M 


jU:vK1 






344 3 


4202 






>_ '..i 


^RI..Tl 






34 4 4 


'^,'.'1 L 














34^5 
















34-^6 


2222 








:LF;2 






3447 


7222 






CLA 








5A53 


1135 






TAD 


JurvKi 






3451 


5543 


/ 

/ 




JiP 


: READCl 






3452 


^Z2i^ 


A J 


^lADI, 


o 








3453 


72i=2 






CLA 








3434 


3137 






DCA 


JU.^K3 






343:) 


4524 


i^il 


:LOj.^, 


J^D 


I READ 






343S 


3135 






„ -v H 


J u i\; A 1 







URiE^.TuY 5EI..D ^'^aX. 



.\ J o.l .-i 



vo 



i57 


i 135 




\k. 


O U i» i\ 1 


34 G J 


11J3 




ta: 


;ic,^ 


3461 


7S5j 




3NA 


CLA 


- 1, r (^ 


5275 




j:^iP 


.;"XIT 


34ci3 


1137 




TAD 


JlJwK3 


j4S4 


7m^5 




MQL 


i^iUY 


34G5 


J^12 




12 




3466 


75^1 




riQA 




3467 


1135 




TAD 


ju;mk1 


3470 


1331 




TAD 


M260 


3471 


3137 




DCA 


JUNX3 


3472 


5255 




J^iP 


.RLOOP 


3473 


42.-^ -J 


uxXIT, 


J!13 


P.1L\T1 


34 74 


0J75 








3475 


^000 




CLF; 


UJ 


3476 


7200 




CLA 




3477 


1137 




TAD 


JUNK5 


353r5 


5652 


/ 

ri2 60, 
/ 


JMP 


I NREAD 


350 1 


7520 


-260 




35.32 


y-^^?: 


/ 

NPRTl, 







35.^3 


72ZZ 




CLA 




3534 


3345 




DCA 


CNTR 


35 D 5 


1346 




TAD 


DIGAD 


35.75 


3^11 




DCA 


11 


35<:7 


1702 




TAD 


I NPRTl 


3510 


5136 




DCA 


JUMK2 


35 11 


1536 




TAD 


I JUNK2 


3512 


7103 


NPLOOP, 


CLL 




5513 


7427 




MQL 


DVI 


3514 


0012 




12 




3515 


3411 




DCA 


I 11 


3516 


2345 




I3Z 


CNTR 


3517 


7501 




MQA 




3520 


7440 




3ZA 




3521 


5512 




JMP 


NPLOOP 


3522 


7200 




CLA 




3523 


1345 




TAD 


CNTh 


3524 


7041 




CMA 


lAC 


3525 


5545 




DCA 


CNTR 


3526 


1011 




TAD 


11 


3527 


5544 




DCA 


r> T f^ ~ 


3530 


1744 


NPLP2, 


TAD 


I CTR2 


3531 


1543 




TAD 


P2S0 


3532 


4521 




J>"^S 


I PRT 


3533 


7200 




CLA 




3534 


1544 




TAD 


CTR2 


353-^ 


1127 




TAD 


Ml 


3536 


5544 




DCA 


CTR2 


3537 


2545 




ISZ 


CfvTR 


35 4.1 


535.7' 




J^IP 


.^^PLP2 


35 4 1 


2302 




ISZ 


;\PRT1 


35 42 


57S2 


/ 

P260, 


J'iv'p 


I NPRTl 


35 4 3 


0250 


2 60 




35 4 4 


'-^ ^t ryi ^1 


CT'^2, 






3545 


^000 


C[\TR, 







3546 


3545 


di3a:^, 


1 ID- 


1 


35 4 7 


1 ■?! i> "?. 
i-i ij Li ^ 


DI"^, 


3 




35 ^.^ 


~ ;■ .?( T 









..^-1 


0..:7 




o 





y:> 



y 



5555 


0000 




3 




3556 


0000 


/ 







3557 


0000 


/ 
RANDl, 


3 




3560 


7200 




CLA 




3561 


1147 




TAD 


K9 .. 


3562 


7425 




MQL 


MUY 








DECIMAL - , 


z^c z 


1 1 c t 




625 


f,::.-'^ 


<^> VJ\> 


i. I \J 1 












OCTAL 


3564 


7531 




M^A 




35S5 


0374 




AND 


P5777 


3566 


3147 




DCA 


K9 


3567 


1147 




TAD 


K9 


3570 


7100 




CLL 




3571 


7427 




MQL 


DVf -,, 








DECIMAL 


3572 


0144 




100 










OCTAL 


3573 


5757 




JMP 


I RANDl 


3574 


3777 


P5777, 

/ 


3777 








/ 


*3603 


3630 


SdSd 


NTIi^.31, 





^ 


3601 


7203 




CLA 




3632 


1600 




TAD 


I i^TIi'lSi / i\i 


3603 


3224 




DCA 


NMN 


3604 


1224 




TAD 


N^N 


3605 


7041 




CMA 


lAC 


3606 


3140 




DCA 


JUNK5 


3607 


2200 




I3Z 


NTIMSl 


3610 


1600 




TAD 


I iNTIf'ISl / LOC 


3611 


3225 




DCA 


JUNK4 


3612 


1140 


NTIMSL, 


TAD 


JUi\K5 


3613 


1224 




TAD 


mh 


3614 


7001 




lAC 




3615 


3217 




DCA 


ARu 


3616 


4625 




JMS 


I JU[mK4 


3617 


0030 


ARG, 


3 




3620 


2140 




I3Z 


JUi^K5 


3621 


5212 




J^P 


NTIM3L 


3622 


2200 




ISZ 


MTIMSl 


3623 


5630 


/ 


JMP 


I NTIMSl 


3624 


0000 







3625 


0000 


JUNK4, 
/ 


i.! 




3626 


0030 


/ 
SriUFLl, 


3 




5627 


720^ 




CLA 




5S30 


1141 




1 .•-! ^ 


A3 


3S31 


3253 




J^f\ 


.+2 


3632 


4514 




JriS 


I NTIME3 , 


5655 


0033 




Li 




5654 


3656 




3HUF] 


L2 


5655 


562S 


/ 

3HUFL2, 


J:^P 


I SHUFLl 


3S5S 


0333 


o 
O 




5657 


7203 




CLA 




5640 


1636 




TAD 


I 3HUFL2 


3641 


3175 




DCA 


lV 


5642 


4522 




jyis 


1 RA^D 


3643 


5153 




uCA 


X 


3S44 


1141 




TAD 


rstJ 



^ 



5643 1132 

364S 7^41 

5S47 1175 

3650 734 1 

3651 3254 
3S52 115J 

3653 7427 

3654 0^03 Y, 
3555 1132 
3656 3276 
5657 1003 
3663 1276 
36^3 1 3136 

3662 1004 

3663 1175 

3664 3137 

3665 1536 

3666 3537 

3667 1003 

3670 1254 

3671 3137 
3572 1537 
3673 3536 
3574 2236 

3675 5636 

/ 

3676 0^00 ZZl 



TAD 


Fl 


CM 


lAC 


TAD 


i\i 


C.-^A 


lAC 


DCA 


Y 


TAD 


X 


MQL 


DVI 







TAD 


PI 


DCA 


ZZl 


TAD 


ALOC 


TAD 


ZZl 


DCA 


JU{JK2 


TAD 


RLOC 


TAD 


N 


DCA 


JUNK3 


TAD 


I JUNK2 


DCA 


I JUNK3 


TAD 


ALOC 


TAD 


Y 


DCA 


JUNK3 


TAD 


I JUNK3 


DCA 


I JUNK2 


ISZ 


SHUFL2 


j:iP 


I SHUFL2 



/ 
/ 

/ ++5fc3j£++*******:»:****+*** END OF PART 1 **♦*******+ + ***+**+*♦ 

/ 

/ BLACKJACK PROGRAM 
/ 



*200 

0223 6032 oTARTl, KCC 

0201 5J46 TLS 

0232 4520 JM3 I PRINT 

0203 0074 

0204 0075 

0205 0075 CCR; CLF; CLF 
3206 0031 

0207 0040 

0210 0036 

0211 0076 

0212 0031 

0213 0051 

0214 0046 

0215 0053 
3216 0037 
0217 0034 



3220 0051 

3221 0375 Ci3;CI?CG;C5?;C5;CA;Cj; CT;CH;CE;C.^;CSP 
322? 0040 



3222 0040 

3225 0052 

3225 3356 

3226 0C33 
0227 0353 
3233 3:32 

3231 0337 

3232 334^ 

32 l-'i 3336 



-.5 






O iJ 

45 



3242 


3054 


3241 


0074 


0242 


0075 


2)245 


3075 


3244 


3356 


0245 


0050 


3246 


3056 


0247 


0054 


0250 


0051 


3251 


0376 


J252 


3050 


0253 


3345 


0254 


3360 


0255 


0376 


0256 


0050 


0257 


0044 


0260 


0046 


0261 


0054 


0262 


0045 


0263 


0055 


3264 


0076 


0265 


3076 


0266 


0376 


0257 


0052 


0270 


337 6 


3271 


0356 


32 72 


0333 


0273 


3056 


0274 


0354 


0275 


0051 


0276 


0076 


0277 


0054 


0503 


0045 


3531 


0053 


052*2 


0052 


3333 


0076 


0304 


0056 


3535 


0353 


3306 


3044 


0507 


3054 


0510 


0074 


3511 


0075 


0512 


0075 


0515 


0057 


0514 


0046 


0515 


0056 


0516 


0076 


3517 


0044 


2520 


3350 


3521 


0045 


3522 


0060 


3525 


0076 


0324 


0053 


3525 


3043 


352 6 


0044 


0527 


0034 


0550 


0052 


0551 


0076 


0552 


0052 


0553 


0057 


3354 


0046 


3335 


3054 


3556 


0345 


3537 


3355 


33^!:: 


3376 



CY;CO;CU;CCa;CLF;CL' 



OWy OH J OCiy -''-> ^'> '^Ol f o.-ij ^ -^ t '-' I» <<j i-i i f \^ n f ^.ij owj -'-'? wIk^ 



r zp* p Q P • r ?, • r Q p • p u • '^ 'i • "^ '^ • .T • '^ ^ • p -1 p • ■" -■ • '" • 



'Uf wO, ^^i 



G;C .;C[*l;CE;CCR;CLF;CLF;CH;C0;CW;C3P;C:^;CA;C.v;CY;C3? 



7 



^341 0343 

3342 0076 CT;CI;CM;CE;CS;CSP;CS;CH;CO;CU;CL;CD;CSP;CI;CSP 

3343 0352 

3344 0037 

3345 3054 

3346 3335 

3347 0335 
3350 0343 
0551 0334 

3352 0376 

3353 0053 
0354 0337 

3355 0334 

3356 3376 

3357 0333 
3363 0054 
3361 0032 
0362 0042 
3363 0102 

336^ 3300 CS; CH; CU; CF; CF; CL; CE; CSP; CT; CH; CE; CSP; CD; CE; CC; CK; Cp 

3365 5766 JMP I READSH 

/ 

3365 3433 READSH, RD3HUF 

/ 

/ 

*430 

/ 

/ 

3433 4513 RD3HUF, JM3 I i^READ 

3431 7124 3TL RAL / AC*2+1 

343Z 3147 DCA K9 

3425 3156 DCA T 

343 4 1304 TAD P64 

34 33 3141 DCA A0 

3435 3157 DCA 70 

3437 3153 DCA Q0 

3413 3146 DCA DCMRK . 

3411 3155 DCA VI 

3412 1333 TAD ALOC 
1413 3313 DCA 13 

3414 1332 TAD CLOC 
34 15 3311 DCA 11 

3415 1131 TAD M4 
3417 3134 DCA JUNK 
3420 1132 TAD PI 

0421 3143 DCA JUivK5 

0422 3136 DCA JUNK2 

0423 1306 t^LQOP?., TAD ^15 

3424 3135 DCA JUWKl 

3425 1305 TAD P144 
3425 1136 TAD JUNK2 
3427 5135 DCA JU[JK2 
34 ?'^ 1152 TAD PI 
3451 5157 DCA JUi\K5 
^432 1136 ^IGOPI, TAD JUNK2 
1433 1137 TAD JUNK3 

3434 3411 DCA I 11 
3455 2157 I3Z JUNK3 

3435 1143 TAD JUNK5 
r!4 3 7 5413 DCA I 13 

3443 2143 I3Z JUfvK5 

3441 2155 I3Z JUi^Kl 

3442 3252 JXiP ML03P1 
3445 2134 ISZ JUNK 

3444 5£l:3 J>1P i>lL03P2 
j445 4247 J^3 NU3HUF 



/ 



3446 


5515 


/ 


Ji^P 


I ;vijjL 






/ 5TAi\r 


^ITH 


r;E^C SHUFFLE 






/ 






3447 


J333 


MJJHL-r, 







34 50 


4525 




Ji^3 


I SHUFFL 


3451 


7203 




CLA 




0452 


1141 




TAD 


A3 


3453 


3164 




DCA 


R3 


34 5 4 


5141 






AS 


34 5-3 


317^ 




U ''^- ■■: 


t'j 


045S 


5647 


/ 

/ he:^hu 
/ 


f^l: 


I aU3:^:F 


3457 


3000 


RESHUF, 


3 




3460 


4520 




J MS 


I PRINT 


3461 


0051 








0462 


0034 








3463 


0352 








3464 


0337 








3465 


0354 








3466 


3035 








3467 


3335 








3470 


3043 








0471 


0334 








34 72 


0074 








3473 


0375 








3474 


0030 




CR;C 


jr. PC. '^H* r"» "^ 


0475 


7201 




CLA 


lAC 


3476 


3163 




DCA 


Q0 


3477 


4247 




JilS 


NiJSHUF 


3533 


2175 




I3Z 


N 


353 1 


7200 




CLA 




0502 


5657 


/ 


J [IP 


I RESHUF 


3503 


3315 


^15, 


15 




3534 


0064 


P64, 


S4 




3505 


3144 


P144, 


144 




3506 


7763 


:''.15, 
/ 

/ 

/ END 
/ 


-15 

*5^3 




3600 


7200 


PAYOUT, 


CLA 




3601 


1155 




TAD 


a/1 


3602 


7450 




SNA 




3603 


5234 




TYP 


PAYE.\D 


3634 


7503 




S/'iA 




3635 


5236 




u i .r 


COLECT 


3636 


7041 




C '"^ ■'- 


lAC 


263 7 


3157 




L> L : 


JU:vK3 


3613 


452.: 




' ''i'"" 


I PRINT 


061 1 


r3( 'Tt /* '-jt 

*-/ w \^ J 








3612 


0046 








0613 


3354 








3514 


0076 








3515 


3346 








3616 


0056 








3617 


0334 








0620 


3376 








0521 


3044 








0622 


0334 








3623 


3076 








0624 


0077 









■ ',J c - '■" 


3 33 3 


-■J ,^ ■ . - 


4512 


j627 


3137 


;53J 


4 523 


J531 


3374 


"".-' ■^ c 


3 375 


<>o5 V. 


-. , 1 -^ 


iu<i -ij '-i 


7^32 


353 5 


5526 


J536 


3137 




4523 


:g4c 


r^ -^ 7.r> 


:;64i 


3046 


2542 


33^3 


054 3 


0043 


CS44 


3034 


2!545 


0032 


354 5 


0353 


354 7 


0375 


355 


3377 


3551 


r' 1 oi n 

i...- ,J U i^J 


0552 


4512 


%5 3 


3137 


D5 5 4 


4 523 


3555 


0376 


ZS5S 


3335 


355 7 


0051 


355 3 


0345 


:3S5i 


0344 


3652 


3076 


3653 


0333 


3564 


3043 


3555 


3336 


3666 


0343 


3557 


0053 


3673 


0033 


3671 


3343 


3572 


3376 


36 7 3 


3334 


36 7 4 


3053 


3575 


3354 


3676 


3343 


3677 


3347 


3733 


0044 


3731 


3034 


0732 


3345 


3733 


3353 


373'^ 


3375 


373 5 


3032 


3736 


334 5 


373 7 


3351 


37 i 3 


334 7 


3711 


3345 


3712 


3351 


3713 


3333 


3714 


3353 


5715 


3340 


3715 


3345 


3717 


3 34 5 


372.^ 


3374 


3721 




:72L 


r, 7 -■ T 



3Y;Cj; CU; CoP;CO; CW; CE; CSF; Ci'^;CEj CSP; C3uL;3 
SAZ I !\PRI[v'T 
JUaK3 » 

J.'iJ I PHI ..T 



CCR;CLF;0 
PAYEND, HLT 

JMP I START 
COLUCT, DCA JUNK3 

JMS I PRINT 



CC;CO;CL;CL;CE;CC;CT;CSP;CDOL;0 

Jf^S I NPRIuT 

JUNK3 

J[*]S I PRINT 



:3P;CF;CR;C0; 



Ci>:; CSP; CD; CI; C3; CI; CT; CA; CL; CSP 



CE; CQ; CU; CI; CP; CM; CE; Ci^l; CT; CSP 



HL" 



';C0; CR;CA; CT; CI;CO;C..; C 



;lf; 



I STAal 



/o 



TAD 


Wl 


SPA 




Ci^iA 


lAC 


DCA 


JUNK3 


jns 


I NP3INT 


JUNK3 


) 


CLA 




^^1 




SPA 




JMP 


NEGMON 


JIA5 


I PRINT 



/ 

/ NEW DEAL 

/ 

1300 4523 NUDEAL, J^IS I PRINT 

1,301 00S0 

1202 0046 

1003 0054 

1004 0076 

1005 0052 

1006 0053 

1007 0033 
1010 0045 
1311 0033 

1012 0076 

1013 0077 

10 1 4 0000 CY; CO; CU; CSP; C3; CT; CA; Ci\l; CD; C3P; CDOL; 3 

1015 7200 CLA 

1016 1155 

1017 75 K^ 

1020 7041 

1021 3137 

1022 4512 

1023 3137 

1024 7200 

1025 1155 TAD 

1026 7513 

1027 5242 

1030 4520 

1031 0076 

1032 0030 
1035 0037 

1034 0034 

1035 0030 

1036 0033 

1037 0101 

1240 Q^£Z C3P;CA;CH;CE;CA;CD;CPER;0 

1041 5261 jy\? WAG 

1042 4520 {^EGi^ON, JilS I PRINT 

1043 0076 

1044 004'/5 

1045 0045 

1046 0076 

1047 0053 

1050 0037 

1051 0034 

1052 0076 

1053 0^537 

1054 3346 

1055 0043 
1356 0034 
1057 0131 

1363 3dZ3 CSr; :i;Ci^;C3P; CT; CK; CE; CSP; CH; CC; CL; C^;CPl;i;;^ 

1061 452^ WA:, Ji^S I PRIEST 

1362 337- 

1363 3^76 

1064 0056 

1065 0337 
1365 3333 
1367 0053 
1373 0376 

1071 0343 

1072 3352 

1373 3076 

1374 0363 // 
1075 3346 



.^77 
31 



21 

[::■ 
11 

12 
13 

14 
15 
16 
17 
2^ 
21 
22 
23 
24 
23 
2S 
27 



52 
33 
34 
35 
6S 
37 
4 
41 



4G 

4 7 

5 J 
31 
52 
53 



157 



S3 

S5 



; ' 5 /i 

^iJ5 1 
0J7b 
o .. 5 S 

ij ij vj J 

2x336 

::^34 

3102 

4513 
7450 
5767 
3154 
1156 
7653 
5325 
1154 
7041 
1175 
7710 
5770 
5 334 
7201 
3156 
1154 
7425 



31 0036 



i i ' : 



7501 
3173 
3163 
3151 
3152 
1157 
7450 
5771 
334 4 
4 514 

"". -71 ^ '^ 

lU "U t^ mJ 

1150 
5747 

12^2 

00c;? 

72C0 
175;! 
3136 
1 136 

i:..:6 

■'137 
1 136 
1141 

r:i::3 

3136 
1537 

3536 
233:' 
3 73: 



12.65 



'A3 IN, 



L720, 



L740, 



rtLb 1 ^ , 



/ 
PAY, 

bIG, 

riL83. 
/ 



CoP;C3P;C.J;CH;CA;CT;Cj;';:.; 



CG;CE;C^; CQM; 

J lis I X-^EAD 

3NA 

JIIP I PAY 

DCA W0 

TAD T 

SNA CLA 

JMP L720 

TAB W0 

CMA I AC 

TAD 1^0 

SPA CLA 

JMP I EIG 

jriP L74'3 

CLA lAC 

DCA T 

TAD WJ 

!^QL .'^UY ' 

deci:^:al : - 

30 ,- 

OCTAL 

M3A 



DCA 
DCA 
DCA 

DCA 
TAD 

SNA 
JMP 
DCA 
J[^jS 


SUi:;! 

LSI. 3 


CLA 
TAD 

r> ^ ^ 

TAZ 

ta: 



DCA 
TAD 



m 
p 

S3 

S4 

\/0 

I AL83 

.+2 

I (^ti>:e5 



I AL81 



I SUBl 

(J U u 1" , - 

VL3C 

j':..;<3 



I J u iv K 3 

T I I - " ; 1/ r 

J. o U iV r\i^ 



isz :vti 
jfiP 



T 



1 



PAYOjT 
^IQhZT 



12.:.; 


72^:; 


L810, 


CLA 




1201 


1141 




TAD 


A0 


12.52 


1157 




TAD 


V0 


1203 


3141 




DCA 


A0 


1204 


3157 




DCA 


\JZ 


1205 


7200 


L830, 


CLA 




12^6 


3171 




DCA 


J+1 


1207 


3172 




DCA 


J+2 


1213 


4514 




J MS 


I tJTIi-lES 


t !^- 1 * 


■TL -r. \ m 




1 '' 




ic. i 1 


^U i ^ 




1 o 




1212 


1214 




SU32 




1213 


5223 




J[^P 


m? 


12 1 4 


02ZZ 


SUB2, 







1215 


1614 




TAD 


I SUE2 


1216 


1005 




TAD 


BLOC 


1217 


3136 




DCA 


JUNK2 


1220 


3536 




DCA 


I JUNK2 


1221 


2214 




ISZ 


SUE2 


1222 


5614 


/ 
/ 
/ 


JMP 


I SU52 


1223 


7203 


NUP, 


CLA 




1224 


1163 




TAD 


P 


1225 


7za0 




HA!=J 




1 /-IOC 
1 1--. o 


12ZZ 




CLA 




1227 


1Z3A 




r<AL 




1 '^ 3 ^ 


IZZl 




lAC 




i tL.\j I 


3165 




DCA 


E 


1232 


1165 




TAD 


E 


1233 


1127 




TAD 


m 


1234 


7650 




3 MA 


CLA 


1235 


5262 




J->!P 


L940 


1236 


1163 




TAD 


P 


1237 


1130 




TAD 


i«13 


IPA7; 


765- 




3{vA 


CLA 


1241 


5301 




0/iP 


L950 


1242 


4520 




Ji^S 


I PRIwT 


1243 


J04 








1 r- .1. 


0076 








1245 


0052 








1246 


0037 








1247 


0046 








IlLD yj 


0056 








1251 


0076 








1 '"> s o 


0076 








1 O ^ T 


076 








125 4 


0076 








12 55 


0076 








1256 


0076 








1257 


0076 








12 6.-^ 


^000 




CI;C 


3P;C3;CH; 


12G1 


5301 




J['P 


L950 


1262 


^i5 20 ■ 


L940, 


^•^'.3 


I PRi:^T 


1263 


0060 








1264 


0046 








1265 


005 4 








1266 


7 ^~. ] 








1267 


■0076 








1273 


0032 








1271 


003Z 








1272 


::35l 








1273 


0053 








1274 


0,-7 6 








1275 


'' ' -1 " 








1276 


_/ ^ ^> ^ 









; CD; CW; OS?; C3P; C3P; C3P; C3P; CSP; CSP;0 



/3 



1277 J^7S 

1300 00D0 CY; CO; CU; C.l; C3?; :C; CA; 

1301 4510 L950, JMS I DEAL 

1302 7203 CLA 

1303 2163 I3Z P 

1304 1163 TAD ? 

1305 1151 TAD /i4 
1336 7440 SZA 
1307 5223 JMP i^UP 

/ 

/ CHECK FOR ELACKJACK 

/ 

1310 720;: CHECK, CLA 

1311 1151 TAD S3 

1312 1365 TAD :':25 

1313 7650 J\A CLA 

1314 57S3 J/iP I DL:;JK 

1315 1152 TAD 34 

1316 1365 TAD M25 

1317 7650 SNA CLA 

1320 5764 JMP I PBKJK 

1321 4516 JP1S I PDEAL 

1322 7200 CLA 

1323 1133 TAD ^^ 

1324 5165 DCA Z 

1325 450G JM3 I DCCV 

1326 <i507 Ji^S 1 jLEAL 

/ 

/ deteh?iine ;^im^E:^ 
/ 

1327 7200 CLA 

1350 1151 TAD S3 

1351 7041 CI1A I AC 
1532 1152 TAD 34 

1353 7510 SPA 

1354 5766 JMP I AIWI.. 
1555 7440 SZA 

1336 5767 Jf'iP I AYWIX 

1357 452:] JilS I p:^IwT 

1540 005^. 

1541 003j 

1542 0044 
1545 0054 

1544 0076 

1545 0040 

1546 0052 

1547 0076 
1550 0050 
155 1 0076 

1552 0053 

1553 0351 

1354 0030 

1355 0056 

1356 0076 



o J 5 '-^ -1 J ^ 



• r^A 



1357 0074 

1360 0075 

1561 0000 CCR;CLF;0 

1562 5770 JMP I AL743 

/ 

1565 1474 DBKJK, DL£KJK 

1564 1630 P5KJK, PL:KJK 

1565 7755 >^5, -25 

1566 1554 AIWIt\, I WIN 

1567 1655 AYVIN, YOU .'IN' 
1372; 1154 AL74k', L74^ 



If 0_. J wwlj Oi, >^k3, oOj f ^ -if '-.iJi , Uu-, ^ 



// 







/ 












/ 












/ 


>c*******:fc**:<c :<=:** :^*>fc** 










*i4a 


3 






/ 












/ 


DEAL 










/ 








{AZZ 


lo' i'.j J ,j 


DE 


ALl, 







14^'l 


7 <_ J »•; 


DEAL2, 


CLA 




1 '! TO 


1 1 re 






T ^n 


C" 


14«J^ 


1. I sJJ 






i i-»-^ 


L- 


1403 


1127 






TAD 


Ml 


1404 


7550 






SNA 


CLA 


1405 


5215 






JKiP 


L2080 


140S 


1163 






TAD 


P 


14^7 


1132 






TAD 


M3 


141.^ 


7450 






SNA 




1411 


5215 






JMP 


L2080 


1412 


4514 






JM3 


I NTIMES 


1413 


0014 






14 




1414 


1467 






3UB6 




1415 


2175 


L2 


080, 


ISZ 


N 


1416 


7200 






CLA 




1417 


1175 






TAD 


N 


142 3 


7^41 






CMA 


lAC 


1421 


1154 






TAD 


R0 


1422 


7710 






SPA 


CLA 


1423 


4555 








I RSHUF 


1424 


1175 






TAD 


N 


1425 


11^04 






TAD 


RLOC 


1425 


3136 






OCA 


JUNK2 


1427 


1536 






TAD 


I JUNK2 


1433 


3153 






DCA 


y 


1431 


1153 






TAD 


w 


1432 


1002 






TAD 


CLOC 


1433 


3136 






DCA 


JUftiK2 


1434 


1536 






TAD 


I JUNK2 


1435 


3150 






DCA 


X 


1436 


2157 






ISZ 


V0 


1437 


1157 






TAD 


\IS 


144j 


1005 






TAD 


VLOC 


1441 


3135 






DCA 


JUNK2 


1442 


1155 






TAD 


W 


1443 


3536 






i> O t-1 


I JU^K2 


1444 


1163 






TAD 


P 


1445 


1131 






TAD 


(14 


144S 


7440 






3ZA 




1447 


5253 






J.MP 


L2155 


1453 


45 14 






j:^iS 


I uTI;^ES 


1451 


0:, 15 






15 




1^52 


1457 






3UB6 




1453 


720'^ 


L2 


155, 


CLA 




14 5 4 


1155 






TAD 


P 


1455 


1130 






TAD 


[^3 


145S 


7450 






S iv A 




1437 


5252 






! V, p 


L2180 


i4s: 


4517 


L2160, 


J,^S 


I PRCRD 


1451 


5500 






J;^? 


I DEALl 


1432 


7200 


L2 


180, 


CLA 




1453 


1150 






TAD 


X 


14 54 


3155 






DCA 


H 


1455 


5250 


/ 




O - J i 


L21S0 


1.55 


..:^;7 


/ 


HUF, 


< ZSH 


JF 


ilS7 


^ -- .^- ^ 


JU 


-5, 


.„ 




U7^ 


4 320 






w 3 


1 rRIi^T 



Ei^D OF SECOr^D PART ***^************** 



/S 



1471 0376 

1472 0003 CSP; li 

1473 5667 JMP I SUB6 

/ 
/ 
/ 

;474 0000 DLBKJK, 

i475 4520 JMS I PRINT 

.476 0033 

1477 0034 

,530 0030 

i501 0045 

.502 i,;J54 

[503 l;051 

,504 3076 

505 0037 

[506 0033 

[507 0052 

,510 0076 

,511 0031 CD;CE;CA;CL;CE;CR;C3P;CH;CA;Co;C3P;CC 

.512 0043 

,513 0033 

,514 0032 

515 0<^4^ 

.516 0041 

.517 003Z 

,520 0032 

.521 J042 

.522 0101 

.523 0074 

,524 0075 
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